home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rdblib / rberrfrm.frm < prev    next >
Text File  |  1995-05-02  |  3KB  |  119 lines
  1. VERSION 2.00
  2. Begin Form RBErrFrm 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "RDB Error Handler"
  6.    ClientHeight    =   3225
  7.    ClientLeft      =   2550
  8.    ClientTop       =   2490
  9.    ClientWidth     =   4500
  10.    Height          =   3630
  11.    HelpContextID   =   21
  12.    Icon            =   RBERRFRM.FRX:0000
  13.    Left            =   2490
  14.    LinkTopic       =   "Form2"
  15.    MaxButton       =   0   'False
  16.    ScaleHeight     =   3225
  17.    ScaleWidth      =   4500
  18.    Top             =   2145
  19.    Width           =   4620
  20.    Begin CommonDialog CMDialog1 
  21.       HelpFile        =   "rberror.hlp"
  22.       Left            =   1740
  23.       Top             =   1080
  24.    End
  25.    Begin SSCommand Command3D1 
  26.       Caption         =   "Help"
  27.       Font3D          =   0  'None
  28.       Height          =   315
  29.       Index           =   3
  30.       Left            =   120
  31.       TabIndex        =   5
  32.       Top             =   2760
  33.       Width           =   2115
  34.    End
  35.    Begin SSCommand Command3D1 
  36.       Caption         =   "Ignore"
  37.       Font3D          =   0  'None
  38.       Height          =   315
  39.       Index           =   2
  40.       Left            =   2940
  41.       TabIndex        =   4
  42.       Top             =   2460
  43.       Width           =   1380
  44.    End
  45.    Begin SSCommand Command3D1 
  46.       Caption         =   "Retry"
  47.       Font3D          =   0  'None
  48.       Height          =   315
  49.       Index           =   1
  50.       Left            =   1500
  51.       TabIndex        =   3
  52.       Top             =   2460
  53.       Width           =   1440
  54.    End
  55.    Begin SSCommand Command3D1 
  56.       Caption         =   "Abort"
  57.       Font3D          =   0  'None
  58.       Height          =   315
  59.       Index           =   0
  60.       Left            =   120
  61.       TabIndex        =   2
  62.       Top             =   2460
  63.       Width           =   1380
  64.    End
  65.    Begin SSCommand Command3D1 
  66.       Caption         =   "Create Problem Report"
  67.       Font3D          =   0  'None
  68.       Height          =   315
  69.       Index           =   4
  70.       Left            =   2220
  71.       TabIndex        =   1
  72.       Top             =   2760
  73.       Width           =   2115
  74.    End
  75.    Begin TextBox Msg 
  76.       BackColor       =   &H00C0C0C0&
  77.       Height          =   2295
  78.       Left            =   120
  79.       MultiLine       =   -1  'True
  80.       TabIndex        =   0
  81.       Top             =   60
  82.       Width           =   4215
  83.    End
  84.    Begin Label SvErr 
  85.       Caption         =   "Label1"
  86.       Height          =   315
  87.       Left            =   420
  88.       TabIndex        =   6
  89.       Top             =   1920
  90.       Width           =   915
  91.    End
  92. End
  93.  
  94. Sub Command3D1_Click (index As Integer)
  95.     RB_Erraction = index
  96.     If index < 3 Then
  97.         Unload RBErrFrm
  98.     End If
  99.     If index = 3 Then
  100.         If Dir$("rberror.hlp") = "" Then
  101.             helploc = Trim(Environ$("windir"))
  102.             If Right(helploc, 1) <> "\" Then
  103.                 helploc = helploc + "\"
  104.             End If
  105.             CMDialog1.HelpFile = helploc & "rberror.hlp"
  106.         End If
  107.         CMDialog1.HelpCommand = HELP_KEY
  108.         CMDialog1.HelpKey = "Error" & Format$(Val(sverr.Caption), "######")
  109.         CMDialog1.Action = 6
  110.     End If
  111.     If index = 4 Then
  112.         RBProbRpt.TxtProblem.Text = Msg.Text
  113.         RBProbRpt.WindowState = MAXIMIZED
  114.         RBProbRpt.Show MODAL
  115.     End If
  116.  
  117. End Sub
  118.  
  119.